Fix TEXT check in gnus-search IMAP search

* lisp/gnus/gnus-search.el (gnus-search-run-search): It's a string,
not a buffer!

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index f3e08519c3e9ec5ee814f69fca576cea8d66398c..0783d34733a01e717d1bb598008da16e5ba398c1 100644 (file)
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1040,7 +1040,7 @@ Responsible for handling and, or, and parenthetical expressions.")
       ;; A bit of backward-compatibility slash convenience: if the
       ;; query string doesn't start with any known IMAP search
       ;; keyword, assume it is a "TEXT" search.
-      (unless (or (looking-at "(")
+      (unless (or (eql ?\( (aref q-string 0))
                  (and (string-match "\\`[^[:blank:]]+" q-string)
                       (memql (intern-soft (downcase
                                            (match-string 0 q-string)))